select distinct vchcode into #vchcode from DlyA where vchtype = 185

declare @vchcode numeric(18,0)

while exists(select 1 from #vchcode )
begin

	select top 1 @vchcode =  vchcode from #vchcode

	exec P_inf_ProCompatibleForeign_dlya_26761 185, @vchcode,'','',''

	delete from #vchcode where vchcode= @vchcode

	if not exists(select 1 from #vchcode)
		break;
end

drop table #vchcode